home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / ebook / promsvb6.chm / f07ph01x.gif < prev    next >
Graphics Interchange Format  |  1999-04-29  |  19.1 KB  |  800x485  |  4-bit (6 colors)
   ocr: Dim WithEvents fop As CFile0p Event fileCopied(file As String, DestPath As String) Private Sub Form_Load() Set fop = New CFileOp End Sub Public Sub StartCopy( 1.The client filespec As String) calls a method. fop.StartCopy "*.*" - RaiseEvent FileCopied( Private Sub cmdCopy_ClickO) - - - thisfile, thisDestPath) End Sub End Sub 3. The class returns to the client. Private Sub FOp-FileCopied (file As String, DestPath As String) React to the event here. End Sub 2. The class raises an event in the client, and waits until the client finishes processing the event. The client module The class module (fo ...